home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / benchmarks / itc / gcc / tm-hp9k320.h < prev    next >
Encoding:
C/C++ Source or Header  |  1989-08-30  |  17.5 KB  |  531 lines
  1. /* Definitions of target machine for GNU compiler.  HP-UX 68000/68020 version.
  2.    Copyright (C) 1987, 1988 Free Software Foundation, Inc.
  3.  
  4. This file is part of GNU CC.
  5.  
  6. GNU CC is distributed in the hope that it will be useful,
  7. but WITHOUT ANY WARRANTY.  No author or distributor
  8. accepts responsibility to anyone for the consequences of using it
  9. or for whether it serves any particular purpose or works at all,
  10. unless he says so in writing.  Refer to the GNU CC General Public
  11. License for full details.
  12.  
  13. Everyone is granted permission to copy, modify and redistribute
  14. GNU CC, but only under the conditions described in the
  15. GNU CC General Public License.   A copy of this license is
  16. supposed to have been given to you along with GNU CC so you
  17. can know your rights and responsibilities.  It should be in a
  18. file named COPYING.  Among other things, the copyright notice
  19. and this notice must be preserved on all copies.  */
  20.  
  21. /* Define USE_GAS if GCC is supposed to work with the GNU assembler,
  22.    GNU linker and GNU debugger using DBX debugging information.
  23.    (In other words, much of HPUX has been cast aside.)
  24.    Undefine USE_GAS if you want GCC to feed the HP assembler.  */
  25.  
  26. /* #define USE_GAS */  /* Use tm-hp9k320g.h if you want this.  */
  27.  
  28. /* Control assembler-syntax conditionals in m68k.md.  */
  29.  
  30. #ifndef USE_GAS
  31. #define MOTOROLA
  32. #define SGS
  33. #define HPUX_ASM
  34. #endif
  35.  
  36. #include "tm-m68k.h"
  37.  
  38. /* See tm-m68k.h.  7 means 68020 with 68881.  */
  39.  
  40. #define    TARGET_DEFAULT 7
  41.  
  42. /* Define __HAVE_FPU__ in preprocessor, unless -msoft-float is specified.
  43.    This will control the use of inline 68881 insns in certain macros.  */
  44.  
  45. #ifdef HPUX_ASM
  46. /* __HPUX_ASM__ is needed because some programs, particularly GDB, need to
  47.    know which assembler is being used so that the correct `asm'
  48.    instructions can be used. */
  49. #define CPP_SPEC "%{!msoft-float:-D__HAVE_FPU__} -D__HPUX_ASM__"
  50. #else
  51. #define CPP_SPEC "%{!msoft-float:-D__HAVE_FPU__}"
  52. #endif
  53.  
  54. /* Names to predefine in the preprocessor for this target machine
  55.    (for non-strict-ANSI programs only).  */
  56.  
  57. #define CPP_PREDEFINES "-Dhp9000s200 -Dhp9000s300 -DPWB -Dmc68k -Dmc68000 -Dhpux -Dunix"
  58.  
  59. /* Every structure or union's size must be a multiple of 2 bytes.  */
  60.  
  61. #define STRUCTURE_SIZE_BOUNDARY 16
  62.  
  63. /* Generate calls to memcpy, memcmp and memset.  */
  64. #define TARGET_MEM_FUNCTIONS
  65.  
  66. /* Function calls don't save any fp registers on hpux.  */
  67.  
  68. #undef CALL_USED_REGISTERS
  69. #define CALL_USED_REGISTERS                        \
  70.  {1, 1, 0, 0, 0, 0, 0, 0,                        \
  71.   1, 1, 0, 0, 0, 0, 0, 1,                        \
  72.   1, 1, 1, 1, 1, 1, 1, 1}
  73.  
  74. #ifdef HPUX_ASM
  75.  
  76. /* Override parts of tm-m68k.h to fit the HPUX assembler.  */
  77.  
  78. #undef TARGET_VERSION
  79. #undef REGISTER_NAMES
  80. #undef FUNCTION_PROLOGUE
  81. #undef FUNCTION_EPILOGUE
  82. #undef ASM_FILE_START
  83. #undef ASM_APP_ON
  84. #undef ASM_APP_OFF
  85. #undef TEXT_SECTION_ASM_OP
  86. #undef DATA_SECTION_ASM_OP
  87. #undef ASM_OUTPUT_DOUBLE
  88. #undef ASM_OUTPUT_FLOAT
  89. #undef ASM_OUTPUT_INT
  90. #undef ASM_OUTPUT_SHORT
  91. #undef ASM_OUTPUT_CHAR
  92. #undef ASM_OUTPUT_BYTE
  93. #undef ASM_OUTPUT_ADDR_VEC_ELT
  94. #undef ASM_OUTPUT_ADDR_DIFF_ELT
  95. #undef ASM_OUTPUT_ALIGN
  96. #undef ASM_OUTPUT_SKIP
  97. #undef ASM_OUTPUT_COMMON
  98. #undef ASM_OUTPUT_LOCAL
  99. #undef ASM_FORMAT_PRIVATE_NAME
  100. #undef PRINT_OPERAND
  101. #undef PRINT_OPERAND_ADDRESS
  102. #undef FUNCTION_PROFILER
  103. #undef ASM_GLOBALIZE_LABEL
  104. #undef ASM_OUTPUT_INTERNAL_LABEL
  105.  
  106. #define TARGET_VERSION printf (" (68k, SGS/hpux syntax)");
  107.  
  108. #define ASM_SPEC "%{m68000:+X}"
  109.  
  110. #define REGISTER_NAMES \
  111. {"%d0", "%d1", "%d2", "%d3", "%d4", "%d5", "%d6", "%d7",    \
  112.  "%a0", "%a1", "%a2", "%a3", "%a4", "%a5", "%fp", "%sp",    \
  113.  "%fp0", "%fp1", "%fp2", "%fp3", "%fp4", "%fp5", "%fp6", "%fp7"}
  114.  
  115. #define FUNCTION_PROLOGUE(FILE, SIZE)     \
  116. { register int regno;                        \
  117.   register int mask = 0;                    \
  118.   static char *reg_names[] = REGISTER_NAMES;            \
  119.   extern char call_used_regs[];                    \
  120.   int fsize = (SIZE);                        \
  121.   if (frame_pointer_needed)                    \
  122.     { if (TARGET_68020 || fsize < 0x8000)            \
  123.         fprintf (FILE, "\tlink.w %%a6,&%d\n", -fsize);        \
  124.       else                            \
  125.     fprintf (FILE, "\tlink.w %%a6,&0\n\tsub.l &%d,%%sp\n", fsize); }  \
  126.   for (regno = 16; regno < FIRST_PSEUDO_REGISTER; regno++)    \
  127.     if (regs_ever_live[regno] && ! call_used_regs[regno])    \
  128.        mask |= 1 << (regno - 16);                \
  129.   if (mask != 0)                        \
  130.     fprintf (FILE, "\tfmovem &0x%x,-(%%sp)\n", mask & 0xff);       \
  131.   mask = 0;                            \
  132.   for (regno = 0; regno < 16; regno++)                \
  133.     if (regs_ever_live[regno] && ! call_used_regs[regno])    \
  134.        mask |= 1 << (15 - regno);                \
  135.   if (frame_pointer_needed)                    \
  136.     mask &= ~ (1 << (15-FRAME_POINTER_REGNUM));            \
  137.   if (exact_log2 (mask) >= 0)                    \
  138.     fprintf (FILE, "\tmov.l %s,-(%%sp)\n", reg_names[15 - exact_log2 (mask)]);  \
  139.   else if (mask) fprintf (FILE, "\tmovm.l &0x%x,-(%%sp)\n", mask); }
  140.  
  141. #define FUNCTION_PROFILER(FILE, LABEL_NO) \
  142.    fprintf (FILE, "\tmov.l &LP%d,%%a0\n\tjsr mcount\n", (LABEL_NO));
  143.  
  144. #define FUNCTION_EPILOGUE(FILE, SIZE) \
  145. { register int regno;                        \
  146.   register int mask, fmask;                    \
  147.   register int nregs;                        \
  148.   int offset, foffset;                        \
  149.   extern char call_used_regs[];                    \
  150.   static char *reg_names[] = REGISTER_NAMES;            \
  151.   extern int current_function_pops_args;            \
  152.   extern int current_function_args_size;            \
  153.   int fsize = (SIZE);                        \
  154.   int big = 0;                            \
  155.   nregs = 0;  fmask = 0;                    \
  156.   for (regno = 16; regno < FIRST_PSEUDO_REGISTER; regno++)    \
  157.     if (regs_ever_live[regno] && ! call_used_regs[regno])    \
  158.       { nregs++; fmask |= 1 << (23 - regno); }            \
  159.   foffset = nregs * 12;                        \
  160.   nregs = 0;  mask = 0;                        \
  161.   if (frame_pointer_needed) regs_ever_live[FRAME_POINTER_REGNUM] = 0; \
  162.   for (regno = 0; regno < 16; regno++)                \
  163.     if (regs_ever_live[regno] && ! call_used_regs[regno])    \
  164.       { nregs++; mask |= 1 << regno; }                \
  165.   offset = foffset + nregs * 4;                    \
  166.   if (offset + fsize >= 0x8000 && frame_pointer_needed)        \
  167.     { fprintf (FILE, "\tmov.l &%d,%%a0\n", -fsize);        \
  168.       fsize = 0, big = 1; }                    \
  169.   if (exact_log2 (mask) >= 0) {                    \
  170.     if (big)                            \
  171.       fprintf (FILE, "\tmov.l -%d(%%a6,%%a0.l),%s\n",        \
  172.            offset + fsize, reg_names[exact_log2 (mask)]);    \
  173.     else if (! frame_pointer_needed)                \
  174.       fprintf (FILE, "\tmov.l (%%sp)+,%s\n",            \
  175.            reg_names[exact_log2 (mask)]);            \
  176.     else                            \
  177.       fprintf (FILE, "\tmov.l -%d(%%a6),%s\n",            \
  178.            offset + fsize, reg_names[exact_log2 (mask)]); }    \
  179.   else if (mask) {                        \
  180.     if (big)                            \
  181.       fprintf (FILE, "\tmovm.l -%d(%%a6,%%a0.l),&0x%x\n",    \
  182.            offset + fsize, mask);                \
  183.     else if (! frame_pointer_needed)                \
  184.       fprintf (FILE, "\tmovm.l (%%sp)+,&0x%x\n", mask);        \
  185.     else                            \
  186.       fprintf (FILE, "\tmovm.l -%d(%%a6),&0x%x\n",        \
  187.            offset + fsize, mask); }                \
  188.   if (fmask) {                            \
  189.     if (big)                            \
  190.       fprintf (FILE, "\tfmovem -%d(%%a6,%%a0.l),&0x%x\n",    \
  191.            foffset + fsize, fmask);                \
  192.     else if (! frame_pointer_needed)                \
  193.       fprintf (FILE, "\tfmovem (%%sp)+,&0x%x\n", fmask);    \
  194.     else                            \
  195.       fprintf (FILE, "\tfmovem -%d(%%a6),&0x%x\n",        \
  196.            foffset + fsize, fmask); }            \
  197.   if (frame_pointer_needed)                    \
  198.     fprintf (FILE, "\tunlk %%a6\n");                \
  199.   if (current_function_pops_args && current_function_args_size)    \
  200.     fprintf (FILE, "\trtd &%d\n", current_function_args_size);    \
  201.   else fprintf (FILE, "\trts\n"); }
  202.  
  203. #define ASM_FILE_START(FILE)
  204.  
  205. #define ASM_APP_ON ""
  206.  
  207. #define ASM_APP_OFF ""
  208.  
  209. #define TEXT_SECTION_ASM_OP "text"
  210.  
  211. #define DATA_SECTION_ASM_OP "data"
  212.  
  213. #define    ASCII_DATA_ASM_OP "\tbyte"
  214.  
  215. /* This says how to output an assembler line
  216.    to define a global common symbol.  */
  217.  
  218. #define ASM_OUTPUT_COMMON(FILE, NAME, SIZE)  \
  219. ( fputs ("\tcomm ", (FILE)),            \
  220.   assemble_name ((FILE), (NAME)),        \
  221.   fprintf ((FILE), ",%d\n", (SIZE)))
  222.  
  223. /* This says how to output an assembler line
  224.    to define a local common symbol.  */
  225.  
  226. #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE)  \
  227. ( fputs ("\tlcomm ", (FILE)),            \
  228.   assemble_name ((FILE), (NAME)),        \
  229.   fprintf ((FILE), ",%d,2\n", (SIZE)))
  230.  
  231. /* Store in OUTPUT a string (made with alloca) containing
  232.    an assembler-name for a local static variable named NAME.
  233.    LABELNO is an integer which is different for each call.  */
  234.  
  235. #define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO)    \
  236. ( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 12),    \
  237.   sprintf ((OUTPUT), "%s___%d", (NAME), (LABELNO)))
  238.  
  239. /* This is how to output a command to make the user-level label named NAME
  240.    defined for reference from other files.  */
  241.  
  242. #define ASM_GLOBALIZE_LABEL(FILE,NAME)    \
  243.   do { fputs ("\tglobal ", FILE); assemble_name (FILE, NAME); fputs ("\n", FILE);} while (0)
  244.  
  245. #define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM)    \
  246. do{  if (PREFIX[0] == 'L' && PREFIX[1] == 'I')        \
  247.     fprintf(FILE, "\tset %s%d,.+2\n", PREFIX, NUM);    \
  248.   else                            \
  249.     fprintf (FILE, "%s%d:\n", PREFIX, NUM);        \
  250. } while(0)
  251.  
  252. #define ASM_OUTPUT_DOUBLE(FILE, VALUE)                    \
  253.   fprintf (FILE, "\tdouble 0f%.20g\n", (VALUE))
  254.  
  255. #define ASM_OUTPUT_FLOAT(FILE, VALUE)                    \
  256.   fprintf (FILE, "\tfloat 0f%.9g\n", (VALUE))
  257.  
  258. /* This is how to output an assembler line defining an `int' constant.  */
  259.  
  260. #define ASM_OUTPUT_INT(FILE,VALUE)  \
  261. ( fprintf (FILE, "\tlong "),            \
  262.   output_addr_const (FILE, (VALUE)),        \
  263.   fprintf (FILE, "\n"))
  264.  
  265. /* Likewise for `char' and `short' constants.  */
  266.  
  267. #define ASM_OUTPUT_SHORT(FILE,VALUE)  \
  268. ( fprintf (FILE, "\tshort "),            \
  269.   output_addr_const (FILE, (VALUE)),        \
  270.   fprintf (FILE, "\n"))
  271.  
  272. #define ASM_OUTPUT_CHAR(FILE,VALUE)  \
  273. ( fprintf (FILE, "\tbyte "),            \
  274.   output_addr_const (FILE, (VALUE)),        \
  275.   fprintf (FILE, "\n"))
  276.  
  277. /* This is how to output an assembler line for a numeric constant byte.  */
  278.  
  279. #define ASM_OUTPUT_BYTE(FILE,VALUE)  \
  280.   fprintf (FILE, "\tbyte 0x%x\n", (VALUE))
  281.  
  282. #define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE)  \
  283.   fprintf (FILE, "\tlong L%d\n", VALUE)
  284.  
  285. #define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, VALUE, REL)  \
  286.   fprintf (FILE, "\tshort L%d-L%d\n", VALUE, REL)
  287.  
  288. #define ASM_OUTPUT_ALIGN(FILE,LOG)    \
  289.   if ((LOG) == 1)            \
  290.     fprintf (FILE, "\tlalign 2\n");    \
  291.   else if ((LOG) != 0)            \
  292.     abort ();
  293.  
  294. #define ASM_OUTPUT_SKIP(FILE,SIZE)  \
  295.   fprintf (FILE, "\tspace %d\n", (SIZE))
  296.  
  297. #define ASM_OUTPUT_SOURCE_FILENAME(FILE, FILENAME)
  298. #define ASM_OUTPUT_SOURCE_LINE(FILE, LINENO)
  299.  
  300. #define PRINT_OPERAND(FILE, X, CODE)  \
  301. { if (CODE == '.') fprintf (FILE, ".");                    \
  302.   else if (CODE == '#') fprintf (FILE, "&");                \
  303.   else if (CODE == '-') fprintf (FILE, "-(%%sp)");            \
  304.   else if (CODE == '+') fprintf (FILE, "(%%sp)+");            \
  305.   else if (CODE == 's') fprintf (FILE, "(%%sp)");            \
  306.   else if (CODE == '!') fprintf (FILE, "%%cc");                \
  307.   else if (GET_CODE (X) == REG)                        \
  308.     fprintf (FILE, "%s", reg_name [REGNO (X)]);                \
  309.   else if (GET_CODE (X) == MEM)                        \
  310.     output_address (XEXP (X, 0));                    \
  311.   else if (GET_CODE (X) == CONST_DOUBLE && GET_MODE (X) == SFmode)    \
  312.     { union { double d; int i[2]; } u;                    \
  313.       union { float f; int i; } u1;                    \
  314.       u.i[0] = XINT (X, 0); u.i[1] = XINT (X, 1);            \
  315.       u1.f = u.d;                            \
  316.       if (CODE == 'f')                            \
  317.         fprintf (FILE, "&0f%.9g", u1.f);                \
  318.       else                                \
  319.         fprintf (FILE, "&0x%x", u1.i); }                \
  320.   else if (GET_CODE (X) == CONST_DOUBLE)                \
  321.     { union { double d; int i[2]; } u;                    \
  322.       u.i[0] = XINT (X, 0); u.i[1] = XINT (X, 1);            \
  323.       fprintf (FILE, "&0f%.20g", u.d); }                \
  324.   else { putc ('&', FILE); output_addr_const (FILE, X); }}
  325.  
  326. #define PRINT_OPERAND_ADDRESS(FILE, ADDR)  \
  327. { register rtx reg1, reg2, breg, ireg;                    \
  328.   register rtx addr = ADDR;                        \
  329.   rtx offset;                                \
  330.   switch (GET_CODE (addr))                        \
  331.     {                                    \
  332.     case REG:                                \
  333.       fprintf (FILE, "(%s)", reg_name [REGNO (addr)]);            \
  334.       break;                                \
  335.     case PRE_DEC:                            \
  336.       fprintf (FILE, "-(%s)", reg_name [REGNO (XEXP (addr, 0))]);    \
  337.       break;                                \
  338.     case POST_INC:                            \
  339.       fprintf (FILE, "(%s)+", reg_name [REGNO (XEXP (addr, 0))]);    \
  340.       break;                                \
  341.     case PLUS:                                \
  342.       reg1 = 0;    reg2 = 0;                        \
  343.       ireg = 0;    breg = 0;                        \
  344.       offset = 0;                            \
  345.       if (CONSTANT_ADDRESS_P (XEXP (addr, 0)))                \
  346.     {                                \
  347.       offset = XEXP (addr, 0);                    \
  348.       addr = XEXP (addr, 1);                    \
  349.     }                                \
  350.       else if (CONSTANT_ADDRESS_P (XEXP (addr, 1)))            \
  351.     {                                \
  352.       offset = XEXP (addr, 1);                    \
  353.       addr = XEXP (addr, 0);                    \
  354.     }                                \
  355.       if (GET_CODE (addr) != PLUS) ;                    \
  356.       else if (GET_CODE (XEXP (addr, 0)) == SIGN_EXTEND)        \
  357.     {                                \
  358.       reg1 = XEXP (addr, 0);                    \
  359.       addr = XEXP (addr, 1);                    \
  360.     }                                \
  361.       else if (GET_CODE (XEXP (addr, 1)) == SIGN_EXTEND)        \
  362.     {                                \
  363.       reg1 = XEXP (addr, 1);                    \
  364.       addr = XEXP (addr, 0);                    \
  365.     }                                \
  366.       else if (GET_CODE (XEXP (addr, 0)) == MULT)            \
  367.     {                                \
  368.       reg1 = XEXP (addr, 0);                    \
  369.       addr = XEXP (addr, 1);                    \
  370.     }                                \
  371.       else if (GET_CODE (XEXP (addr, 1)) == MULT)            \
  372.     {                                \
  373.       reg1 = XEXP (addr, 1);                    \
  374.       addr = XEXP (addr, 0);                    \
  375.     }                                \
  376.       else if (GET_CODE (XEXP (addr, 0)) == REG)            \
  377.     {                                \
  378.       reg1 = XEXP (addr, 0);                    \
  379.       addr = XEXP (addr, 1);                    \
  380.     }                                \
  381.       else if (GET_CODE (XEXP (addr, 1)) == REG)            \
  382.     {                                \
  383.       reg1 = XEXP (addr, 1);                    \
  384.       addr = XEXP (addr, 0);                    \
  385.     }                                \
  386.       if (GET_CODE (addr) == REG || GET_CODE (addr) == MULT        \
  387.       || GET_CODE (addr) == SIGN_EXTEND)                \
  388.     { if (reg1 == 0) reg1 = addr; else reg2 = addr; addr = 0; }    \
  389. /*  for OLD_INDEXING                            \
  390.       else if (GET_CODE (addr) == PLUS)                    \
  391.     {                                \
  392.       if (GET_CODE (XEXP (addr, 0)) == REG)                \
  393.         {                                \
  394.           reg2 = XEXP (addr, 0);                    \
  395.           addr = XEXP (addr, 1);                    \
  396.         }                                \
  397.       else if (GET_CODE (XEXP (addr, 1)) == REG)            \
  398.         {                                \
  399.           reg2 = XEXP (addr, 1);                    \
  400.           addr = XEXP (addr, 0);                    \
  401.         }                                \
  402.     }                                \
  403.   */                                    \
  404.       if (offset != 0) { if (addr != 0) abort (); addr = offset; }    \
  405.       if ((reg1 && (GET_CODE (reg1) == SIGN_EXTEND            \
  406.             || GET_CODE (reg1) == MULT))            \
  407.       || (reg2 != 0 && REGNO_OK_FOR_BASE_P (REGNO (reg2))))        \
  408.     { breg = reg2; ireg = reg1; }                    \
  409.       else if (reg1 != 0 && REGNO_OK_FOR_BASE_P (REGNO (reg1)))        \
  410.     { breg = reg1; ireg = reg2; }                    \
  411.       if (ireg != 0 && breg == 0 && GET_CODE (addr) == LABEL_REF)    \
  412.         { int scale = 1;                        \
  413.       if (GET_CODE (ireg) == MULT)                    \
  414.         { scale = INTVAL (XEXP (ireg, 1));                \
  415.           ireg = XEXP (ireg, 0); }                    \
  416.       if (GET_CODE (ireg) == SIGN_EXTEND)                \
  417.         fprintf (FILE, "L%d-LI%d(%%pc,%s.w",            \
  418.              CODE_LABEL_NUMBER (XEXP (addr, 0)),        \
  419.              CODE_LABEL_NUMBER (XEXP (addr, 0)),        \
  420.              reg_name[REGNO (XEXP (ireg, 0))]);         \
  421.       else                                \
  422.         fprintf (FILE, "L%d-LI%d(%%pc,%s.l",            \
  423.              CODE_LABEL_NUMBER (XEXP (addr, 0)),        \
  424.              CODE_LABEL_NUMBER (XEXP (addr, 0)),        \
  425.              reg_name[REGNO (ireg)]);                \
  426.       if (scale != 1) fprintf (FILE, "*%d", scale);            \
  427.       putc (')', FILE);                        \
  428.       break; }                            \
  429.       if (ireg != 0 || breg != 0)                    \
  430.     { int scale = 1;                        \
  431.       if (breg == 0)                        \
  432.         abort ();                            \
  433.       if (addr != 0)                        \
  434.         output_addr_const (FILE, addr);                \
  435.       fprintf (FILE, "(%s", reg_name[REGNO (breg)]);        \
  436.       if (ireg != 0)                        \
  437.         putc (',', FILE);                        \
  438.       if (ireg != 0 && GET_CODE (ireg) == MULT)            \
  439.         { scale = INTVAL (XEXP (ireg, 1));                \
  440.           ireg = XEXP (ireg, 0); }                    \
  441.       if (ireg != 0 && GET_CODE (ireg) == SIGN_EXTEND)        \
  442.         fprintf (FILE, "%s.w", reg_name[REGNO (XEXP (ireg, 0))]);    \
  443.       else if (ireg != 0)                        \
  444.         fprintf (FILE, "%s.l", reg_name[REGNO (ireg)]);        \
  445.       if (scale != 1) fprintf (FILE, "*%d", scale);            \
  446.       putc (')', FILE);                        \
  447.       break;                            \
  448.     }                                \
  449.       else if (reg1 != 0 && GET_CODE (addr) == LABEL_REF)        \
  450.     { fprintf (FILE, "L%d-LI%d(%%pc,%s.w)",                \
  451.            CODE_LABEL_NUMBER (XEXP (addr, 0)),            \
  452.            CODE_LABEL_NUMBER (XEXP (addr, 0)),            \
  453.            reg_name[REGNO (reg1)]);                \
  454.       break; }                            \
  455.     default:                                \
  456.       if (GET_CODE (addr) == CONST_INT                    \
  457.       && INTVAL (addr) < 0x8000                    \
  458.       && INTVAL (addr) >= -0x8000)                    \
  459.     fprintf (FILE, "%d.w", INTVAL (addr));                \
  460.       else                                \
  461.         output_addr_const (FILE, addr);                    \
  462.     }}
  463.  
  464. #define    ASM_OUTPUT_ASCII(f, p, size)    \
  465. { register int i;            \
  466.   int inside;                \
  467.   inside = FALSE;            \
  468.   for (i = 0; i < size; i++) {        \
  469.     if (i % 8 == 0) {            \
  470.       if (i != 0) {            \
  471.     if (inside)            \
  472.       putc('"', f);            \
  473.     putc('\n', f);            \
  474.     inside = FALSE;            \
  475.       }                    \
  476.       fprintf(f, "%s ", ASCII_DATA_ASM_OP);    \
  477.     }                    \
  478.     if (p[i] < 32 || p[i] == '\\' || p[i] == '"' || p[i] == 127) {    \
  479.       if (inside) {            \
  480.     putc('"', f);            \
  481.     inside = FALSE;            \
  482.       }                    \
  483.       if (i % 8 != 0)            \
  484.     putc(',', f);            \
  485.       fprintf(f, "%d", p[i]);        \
  486.     } else {                \
  487.       if (!inside) {            \
  488.     if (i % 8 != 0)            \
  489.       putc(',', f);            \
  490.     putc('"', f);            \
  491.     inside = TRUE;            \
  492.       }                    \
  493.       putc(p[i], f);            \
  494.     }                    \
  495.   }                    \
  496.   if (inside)                \
  497.     putc('"', f);            \
  498.   putc('\n', f);            \
  499. }
  500.  
  501. /* Translate Motorola opcodes such as `jbeq'
  502.    into SGS opcodes such as `beq.w'.
  503.    Delete the `e' in `move...' and `fmove'.
  504.    Change `ftst' to `ftest'.  */
  505.  
  506. #define ASM_OUTPUT_OPCODE(FILE, PTR)            \
  507. { if ((PTR)[0] == 'j' && (PTR)[1] == 'b')        \
  508.     { ++(PTR);                        \
  509.       while (*(PTR) != ' ')                \
  510.     { putc (*(PTR), (FILE)); ++(PTR); }        \
  511.       fprintf ((FILE), ".w"); }                \
  512.   else if ((PTR)[0] == 'f')                \
  513.     {                            \
  514.       if (!strncmp ((PTR), "fmove", 5))            \
  515.     { fprintf ((FILE), "fmov"); (PTR) += 5; }    \
  516.       else if (!strncmp ((PTR), "ftst", 4))        \
  517.     { fprintf ((FILE), "ftest"); (PTR) += 4; }    \
  518.     }                            \
  519.   else if ((PTR)[0] == 'm' && (PTR)[1] == 'o'        \
  520.        && (PTR)[2] == 'v' && (PTR)[3] == 'e')    \
  521.     { fprintf ((FILE), "mov"); (PTR) += 4; }        \
  522. }
  523.  
  524. #else /* not HPUX_ASM */
  525.  
  526. #undef FUNCTION_PROFILER
  527. #define FUNCTION_PROFILER(FILE, LABELNO)  \
  528.    fprintf (FILE, "\tmovl #LP%d,d0\n\tjsr mcount\n", (LABELNO));
  529.  
  530. #endif /* not HPUX_ASM */
  531.